home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / Software / Vyzkuste / xsetup / _SETUP.2 / Group3 / XQ Desktop Settings.xpl < prev    next >
Text File  |  1999-09-08  |  3KB  |  97 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="4"
  4. "UIPATH"="Appearance\Desktop\Options"
  5. "NAME"="General"
  6. "VERSION"="1.20"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Show Windows Build/Version on Desktop"
  9. "TEXT 2"="Show current username and computer on 'My Computer'"
  10. "TEXT 3"="Show ToolTips on Desktop and inside Explorer"
  11. "TEXT 4"="Save item positions on exit"
  12. "DESCRIPTION 1"="The first option in allows you to display the build of Windows that you are using in the lower right-hand corner of your desktop screen above the taskbar tray area. This works on Windows 98, Windows 95 and Windows 2000."
  13. "DESCRIPTION 2"="If the second options is activated, the text below the 'My Computer' icon will display the current username and the name of this computer for example, "JDOW on SERVER"."
  14. "DESCRIPTION 3"="If the third options is activated the Desktop and the Windows Explorer will display a ToolTip for various items. If deactivated, this AKA "bubble help" will not appear."
  15. "DESCRIPTION 4"="If "Save item positions on exit" is activated, the desktop saves the positions of every icon on the desktop on exit (default). If deactivated, Windows does not save the positions."
  16. "DESCRIPTION 5"="To see the changes, switch to the desktop and press F5 to refresh it."
  17. "AUTHOR"="Xteq Systems"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  19. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  20. "COMMENT 2"="Thanks to Maxwell <maxwello@hotpop.com> for this setting."
  21. "COMMENT 3"="Thanks to Pierre Szwarc <http://perso.cybercable.fr/szwarc/> for the Windows 2000 part."
  22.  
  23.  
  24.  
  25. sV1="HKCU\Control Panel\Desktop\PaintDesktopVersion"
  26. sP2="HKCR\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\@"
  27. sV2="%USERNAME% on %COMPUTERNAME%"
  28. sV3="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowInfoTip" 'DW
  29. sV4="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSaveSettings" 'BINARY!
  30.  
  31. Sub Plugin_Initialize 
  32.     i=RegReadValue(sV1)
  33.     if i=1 then SetUIElement 1,true
  34.  
  35.     s=RegReadValue(sP2)
  36.     if s=sV2 then SetUIElement 2,true
  37.  
  38.     i=RegReadValue(sV3)
  39.     if i=1 then SetUIElement 3,true
  40.  
  41.     i=RegReadValue(sV4)
  42.     if IsEmpty(i) or i="00000000" then SetUIElement 4,true
  43. End Sub
  44.  
  45. Sub Plugin_CheckData(ElementIndex)
  46. End Sub
  47.  
  48. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  49.  s="0"
  50.  b=GetUIElement(1)
  51.  if b=true then s="1"
  52.  'Windows 95/98 = STRING; Windows 2000 = DWORD
  53.  if GetWinVer=1 or GetWinVer=3 then
  54.     Call RegWriteValue(sv1,s,1)
  55.  else
  56.     if GetWinVer=4 then
  57.        Call RegWriteValue(sv1,s,2)
  58.     else
  59.        Call MsgError("The 'Show Windows Build/Version on Desktop' option is not available on Windows NT. Sorry!")
  60.     end if
  61.  end if
  62.  
  63.  
  64.  b=GetUIElement(2)
  65.  if b=true then
  66.     if GetWinVer<>2 and GetWinVer<>4 then
  67.        Call MsgError("The 'USERNAME on COMPUTER' option is only available on Windows NT or Windows 2000. Sorry!")
  68.     else
  69.        Call RegWriteValue(sP2,sV2,4)
  70.     end if
  71.  else
  72.     Call RegWriteValue(sP2,"My Computer",1)
  73.  end if
  74.  
  75.  b=GetUIElement(3)
  76.  if b=true then
  77.     Call RegWriteValue(sV3,1,2)
  78.  else
  79.     Call RegWriteValue(sV3,0,2)
  80.  end if
  81.  
  82.  
  83.  b=GetUIElement(4)
  84.  if b=true then
  85.     Call RegWriteValue(sV4,"00000000",3)
  86.  else
  87.     Call RegWriteValue(sV4,"01000000",3)
  88.  end if
  89.  
  90.  
  91.  
  92.  Call Restart()
  93. End Sub
  94.  
  95. Sub Plugin_Terminate 
  96. End Sub
  97.